home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / gadgettest2 / gadget2.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  3.1 KB  |  73 lines
  1.   file$="gadget2" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 03gf00 02gb00 82gb00 2agb00 4aga00 03e9gb 00824e e8
  42. 2     DATA 54ffe8 42acff fc42ac fff842 acfff4 426cff ec43fa 01c070 002c78 ac
  43. 3     DATA 00044e aefdd8 2940ff f867ga 00ac43 fa01bb 70004e aefdd8 2940ff d8
  44. 4     DATA fc67ga 009a23 fc31ga 30gd00 41f9gc 002c6c fffc4e aeff34 2940ff 4d
  45. 5     DATA f467ga 007a20 402968 0032ff f02a68 005661 ga00a0 4a6cff ec6662 9a
  46. 6     DATA 700012 2d000f 03c02c 780004 4eaefe c2204d 2c7800 044eae fe8c4a 48
  47. 7     DATA 8067dc 224024 290014 362900 184eae fe860c 82ga00 020066 08397c ef
  48. 8     DATA 0001ff ec60d4 0c82gb 000466 1a206c fff42c 6cfffc 4eaefe 9e6146 3b
  49. 9     DATA 206cff f470ff 4eaefe 9260b2 613860 ae202c fff467 0a2040 2c6cff 6b
  50. 10    DATA fc4eae ffb820 2cfff8 670a22 402c78 00044e aefe62 202cff fc670a ac
  51. 11    DATA 22402c 780004 4eaefe 624e5c 70004e 7541f9 gb0030 246800 ga222a d3
  52. 12    DATA 001c6a 024481 41f9gb 00b822 680022 342900 042001 c0c248 41gac2 19
  53. 13    DATA 0680ga 007fff 484124 01ga42 d08274 00d342 243cga 00gaff 61104a 45
  54. 14    DATA aa001c 6a0244 8041fa 00a361 2a4e75 48e73c 007600 7a2fe3 90e351 75
  55. 15    DATA e393b6 826506 968200 3c0010 e39451 cdffec 200422 034cdf 003c4e 81
  56. 16    DATA 7548e7 fff222 4f45fa 004647 f9gb00 442c78 00044e aefdf6 244b4a bc
  57. 17    DATA 1a66fc 534a95 cb226c fff070 012c6c fff84e aefeaa 226cff f07009 52
  58. 18    DATA 722d4e aeff10 204b22 6cfff0 200a4e aeffc4 4cdf4f ff4e75 16c04e 67
  59. 19    DATA 756772 617068 696373 2e6c69 627261 727900 696e74 756974 696f6e da
  60. 20    DATA 2e6c69 627261 727900 417276 6f3d25 31302e 31306c 64gc00 03ecgb d6
  61. 21    DATA 0002gb 0001gb 0042ga 000190 gb0003 gb0002 gb0048 ga0001 0cga00 64
  62. 22    DATA 011ege 0003f2 ga0003 ebgb00 2aga00 03f2ga 0003ea gb004a 000a00 1a
  63. 23    DATA 6400fa 003c00 01ga00 0254gb 004fgb 0030ge 00010e gh00fa 003c03 5a
  64. 24    DATA e803e8 0001gb 00b800 320014 00a000 0aga00 080100 04gb00 80gf00 67
  65. 25    DATA a4gf00 5cgl00 22gb00 21gr00 64gc00 fffeff fe0102 0005gb 0090gh aa
  66. 26    DATA 00a3gb 00a300 0bgb00 0bgc00 0102ga 00ffd8 gg0001 23gg00 ffdf00 c0
  67. 27    DATA 0b0010 fff200 500009 0003gb 00fagn 00e4gf 0005ge 000fff gy00ge 05
  68. 28    DATA 005369 6d706c 655265 667265 73682d 69ga6b 756e61 004d61 783agb 91
  69. 29    DATA 0003ec gb0002 gb0001 gb005c gb0060 gb000a gb0002 gb0012 gb001a f1
  70. 30    DATA gb0030 gb0042 gb004a gb0052 gb0088 gb00b0 gb00ca gb00da ge0003 e4
  71. 31    DATA f277
  72.       DATA **
  73.